
**TABLE 2: Randomization**

**Member-Level Variables**

use "$data/baseline_only.dta", clear
drop male
gen male = 1-female

tab EDT_treat d_lleligible,m
tab L_ttreat d_lleligible,m

**Abbreviations:
	*BT = business training
	*E = eligible for lottery
	*NE = not eligible for lottery

**Columns 1 to 6
**EDT_treat
	*BT / no BT
	local xvars1 "age education male married num_memory* index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO bl_bus_owner d_lleligible"
	estpost tabstat `xvars1'  if  post==0, by (EDT_treat)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Member-col1-2.csv",   cells("count mean(fmt(2)) ") replace nonum noobs
	
	*BT & E / BT & NE
	local xvars1 "age education male married num_memory_f8 index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO bl_bus_owner d_lleligible"
	estpost tabstat `xvars1'  if  post==0 & EDT_treat==1, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Member-col3-4.csv",   cells("count mean(fmt(2)) ") replace nonum noobs
	
	*No BT & E / no BT & NE
	local xvars1 "age education male married num_memory_f8 index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO bl_bus_owner d_lleligible"
	estpost tabstat `xvars1'  if  post==0 & EDT_treat==0, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Member-col5-6.csv",   cells("count mean(fmt(2)) ") replace nonum noobs

**Columns 10 to 12
**L_ttreat
	*Lottery winner / Loser
	local xvars1 "age education male married num_memory_f8 index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO bl_bus_owner d_lleligible"
	estpost tabstat `xvars1'  if  post==0 & d_lleligible==1, by (L_ttreat)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Member-Col10.csv",   cells("count mean(fmt(2)) ") replace nonum noobs
	
	*Eligible for lottery but did not win / NE
	local xvars1 "age education male married num_memory_f8 index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO bl_bus_owner d_lleligible"
	estpost tabstat `xvars1'  if  post==0 & L_ttreat==0, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Member-col11-12.csv",   cells("count mean(fmt(2)) ") replace nonum noobs

*P-Value test
*Column 7 : BT / no BT
	local xvars1 "age education male married num_memory_f8 index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO bl_bus_owner d_lleligible"
	est clear
	local j =1
	foreach y in `xvars1' {
		reg `y' EDT_treat female d_lleligible bl_bus_owner fu_dummy* if (fu_dummy7==0  & post==0 ), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-Member-col7.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

*Column 8 : BT & E / no BT & E
	local xvars1 "age education male married num_memory_f8 index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO bl_bus_owner"
	est clear
	local j =1
	foreach y in `xvars1' {
		reg `y' EDT_treat female bl_bus_owner fu_dummy* if (fu_dummy7==0  & post==0 & d_lleligible==1), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-Member-col8.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

*Column 9 : BT & NE / no BT & NE
	local xvars1 "age education male married num_memory_f8 index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO bl_bus_owner"
	est clear
	local j =1
	foreach y in `xvars1' {
		reg `y' EDT_treat female bl_bus_owner fu_dummy* if ( fu_dummy7==0  & post==0 & d_lleligible==0), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-Member-col9.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

**Column 13 : E (but did not win lottery) / NE
	local xvars1 "age education married num_memory_f8 index_optimism laxman_bus_knowledge female_mob_index laxman_no_purdah_index risk_aversion_gen months_CO int_training pos_CO"
	est clear
	local j =1
	foreach y in `xvars1' {
		reg `y' L_ttreat female bl_bus_owner fu_dummy* if (fu_dummy7==0 & post==0 & d_lleligible==1), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-Member-col13.csv", cells("p(star fmt(2))" ) keep(L_ttreat)    replace
	estimates clear

**F test
	reg EDT_treat age education male married num_memory_f8 index_optimism laxman_bus_knowledge risk_aversion_gen months_CO ///
		int_training pos_CO d_lleligible bl_bus_owner fu_dummy* if (post==0 & fu_dummy7==0), cl(co_code1)
	test age education male married num_memory_f8 index_optimism laxman_bus_knowledge risk_aversion_gen months_CO int_training pos_CO bl_bus_owner d_lleligible

	reg EDT_treat age education male married num_memory_f8 index_optimism laxman_bus_knowledge risk_aversion_gen months_CO ///
		int_training pos_CO bl_bus_owner fu_dummy* if (post==0 & fu_dummy7==0 & d_lleligible==1), cl(co_code1)
	test age education male married num_memory_f8 index_optimism laxman_bus_knowledge risk_aversion_gen months_CO int_training pos_CO bl_bus_owner 

	reg EDT_treat age education male married num_memory_f8 index_optimism laxman_bus_knowledge risk_aversion_gen months_CO ///
		int_training pos_CO bl_bus_owner fu_dummy* if (post==0 & fu_dummy7==0 & d_lleligible==0), cl(co_code1)
	test age education male married num_memory_f8 index_optimism laxman_bus_knowledge risk_aversion_gen months_CO int_training pos_CO bl_bus_owner

	reg L_ttreat age education male married num_memory_f8 index_optimism laxman_bus_knowledge risk_aversion_gen months_CO ///
		int_training pos_CO bl_bus_owner fu_dummy* if (post==0 & fu_dummy7==0 & d_lleligible==1), cl(co_code1)
	test age education male married num_memory_f8 index_optimism laxman_bus_knowledge risk_aversion_gen months_CO int_training pos_CO bl_bus_owner


**Household Level variables**

*Columns 1 to 6
**EDT_treat
	*BT / no BT
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	estpost tabstat `xvars1'  if fu_dummy7==0 & post==0, by (EDT_treat)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-HH-col1-2.csv",   cells("count mean(fmt(2)) ") replace nonum noobs

	*BT & E / BT & NE	
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	estpost tabstat `xvars1'  if fu_dummy7==0 & post==0 & EDT_treat==1, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-HH-col3-4.csv",   cells("count mean(fmt(2)) ") replace nonum noobs
	
	*No BT & E / no BT & NE
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	estpost tabstat `xvars1'  if fu_dummy7==0 & post==0 & EDT_treat==0, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab using "$out/Table2-HH-col5-6.csv",   cells("count mean(fmt(2)) ") replace nonum noobs

*Columns 10 to 12
**L_ttreat
	*Lottery winner / Loser
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	estpost tabstat `xvars1'  if fu_dummy7==0 & post==0 & d_lleligible==1, by (L_ttreat)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-HH-col10.csv",   cells("count mean(fmt(2)) ") replace nonum noobs
	
	*Eligible for lottery but did not win / NE
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	estpost tabstat `xvars1'  if fu_dummy7==0 & post==0 & L_ttreat==0, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-HH-col11-12.csv",   cells("count mean(fmt(2)) ") replace nonum noobs

*P-Value test
*Column 7 : BT / no BT
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	est clear
	local j =1
	foreach y in `xvars1' {
		reg `y' EDT_treat female d_lleligible bl_bus_owner fu_dummy*  if (fu_dummy7==0  & post==0 ), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-HH-col7.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

*Column 8 : BT & E / no BT & E
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	est clear
	local j =1
	foreach y in `xvars1' {
		reg `y' EDT_treat female bl_bus_owner fu_dummy*  if ( fu_dummy7==0  & post==0 & d_lleligible==1), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-HH-col8.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

*Column 9 : BT & NE / no BT & NE
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	est clear
	local j =1
	foreach y in `xvars1' {
		reg `y' EDT_treat female bl_bus_owner fu_dummy*  if ( fu_dummy7==0  & post==0 & d_lleligible==0), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-HH-col9.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

*Column 13 : E (but did not win lottery) / NE
	local xvars1 "HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4 "
	est clear
	local j =1
	foreach y in `xvars1' {
		reg `y' L_ttreat female bl_bus_owner fu_dummy*  if (fu_dummy7==0  & post==0 & d_lleligible==1), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-HH-col13.csv", cells("p(star fmt(2))" ) keep(L_ttreat)    replace
	estimates clear

**F test
	reg EDT_treat HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  ///
		male_decision d_bank_deposit self_income4 fu_dummy* if (post==0 & fu_dummy7==0), cl(co_code1)
	test HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4

	reg EDT_treat HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  ///
		male_decision d_bank_deposit self_income4 female bl_bus_owner fu_dummy* if (post==0 & fu_dummy7==0 & d_lleligible==1 ), cl(co_code1)
	test HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4

	reg EDT_treat HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  ///
		male_decision d_bank_deposit self_income4 female bl_bus_owner fu_dummy* if (post==0 & fu_dummy7==0 & d_lleligible==0 ), cl(co_code1)
	test HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4

	reg L_ttreat HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  ///
		male_decision d_bank_deposit self_income4 female bl_bus_owner fu_dummy* if (post==0 & fu_dummy7==0 & d_lleligible==1 ), cl(co_code1)
	test HHsize COzaat ever_business ind_i_q2 land  distance credit_constraint log_monthly_expenditure  male_decision d_bank_deposit self_income4


**Business Level variables**

**Columns 1 to 6
**EDT_treat
	*BT / no BT
	use "$data/business_visit.dta", clear
	local xvars1 "agribusiness retail2 handicraft services3 bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	estpost tabstat `xvars1'  if  post==0, by (EDT_treat)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Bus-col1-2.csv", cells("count mean(fmt(2)) ") replace nonum noobs

	*BT & E / BT & NE
	local xvars1 "agribusiness retail2 handicraft services3 bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	estpost tabstat `xvars1'  if  post==0 & EDT_treat==1, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Bus-col3-4.csv", cells("count mean(fmt(2)) ") replace nonum noobs

	*No BT & E / no BT & NE
	local xvars1 "agribusiness retail2 handicraft services3 bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	estpost tabstat `xvars1'  if  post==0 & EDT_treat==0, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Bus-col5-6.csv", cells("count mean(fmt(2)) ") replace nonum noobs

**Columns 10 to 12
**L_ttreat
	*Lottery winner / Loser
	local xvars1 "agribusiness retail2 handicraft services3 bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	estpost tabstat `xvars1'  if  post==0 & d_lleligible==1, by (L_ttreat)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Bus-col10.csv", cells("count mean(fmt(2)) ") replace nonum noobs
	
	*Eligible for lottery but did not win / NE
	local xvars1 "agribusiness retail2 handicraft services3 bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	estpost tabstat `xvars1'  if  post==0 & L_ttreat==0, by (d_lleligible)  ///
	statistics (count mean ) columns(statistics)
	esttab  using "$out/Table2-Bus-col11-12.csv", cells("count mean(fmt(2)) ") replace nonum noobs

*P-Value test
*Column 7 : BT / no BT
	local xvars1 "agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	est clear
	local j =1
	foreach y in `xvars1' {
		xi: reg `y' EDT_treat female bl_bus_owner i.field_unit_code if ( post==0 ), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-Bus-col7.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

*Column 8 : BT & E / no BT & E
	local xvars1 "agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	est clear
	local j =1
	foreach y in `xvars1' {
		xi:reg `y' EDT_treat female bl_bus_owner i.field_unit_code if ( post==0 & d_lleligible==1), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-Bus-col8.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

*Column 9 : BT & NE / no BT & NE
	local xvars1 "agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	est clear
	local j =1
	foreach y in `xvars1' {
		xi:reg `y' EDT_treat female bl_bus_owner i.field_unit_code if ( post==0 & d_lleligible==0), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-Bus-col9.csv", cells("p(star fmt(2))" ) keep(EDT_treat)    replace
	estimates clear

*Column 13 : E (but did not win lottery) / NE
	local xvars1 "agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month "
	est clear
	local j =1
	foreach y in `xvars1' {
		xi:reg `y' L_ttreat female bl_bus_owner i.field_unit_code if ( post==0 & d_lleligible==1 ), cl(co_code1)
		estimates store `y'
		estadd scalar mean_y=r(mean)
		local j = `j'+1
	}
	esttab * using "$out/Table2-Bus-col13.csv", cells("p(star fmt(2))" ) keep(L_ttreat)    replace
	estimates clear

**F test
	xi: reg EDT_treat agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit ///
		record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month ///
		log_bad_month i.field_unit_code if (post==0), cl(co_code1)
	test agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit record_sale_last_month ///
		record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month
		
	xi: reg EDT_treat agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit ///
		record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month ///
		log_bad_month female bl_bus_owner i.field_unit_code if (post==0 & d_lleligible==1 ), cl(co_code1)
	test agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit record_sale_last_month ///
		record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month

	xi: reg EDT_treat agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit ///
		record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month ///
		log_bad_month female bl_bus_owner i.field_unit_code if (post==0 & d_lleligible==0 ), cl(co_code1)
	test agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit record_sale_last_month ///
		record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month
		
	xi: reg L_ttreat agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit ///
		record_sale_last_month record_money_taken number_workers d_paidworkers  log_good_month log_average_month ///
		log_bad_month female bl_bus_owner i.field_unit_code if (post==0 & d_lleligible==1 ), cl(co_code1)
	test agribusiness retail2 handicraft services3  bus_fixed all_months_operate purchase_on_credit record_sale_last_month ///
		record_money_taken number_workers d_paidworkers  log_good_month log_average_month log_bad_month
